
(osc-purify #f)				; => 0
(osc-purify '(/s #t))			; => ("/s" 1)
(osc-purify '(/s (#f s)))		; => ("/s" (0 "s"))

(osc-verify-message '("/s"))		; => #t
(osc-verify-message '("/s" 2.4))	; => #t
(osc-verify-message '("/s" 1 "t"))	; => #t
(osc-verify-message '(1 2.4 "t")) 	; => #f
(osc-verify-message '("/s" 'symbol))	; => #f

(osc-verify-bundle '(1 ("/s" 5)))	; => #t
(osc-verify-bundle '(1 (1 ("/s" 5))))	; => #t
(osc-verify-bundle '("/t" 5))		; => #f
(osc-verify-bundle '(1 (#f ("/s"))))	; => #f
(osc-verify-bundle '(9 (8 ("/s" 5))))	; => #f

(osc-display-packet
 (osc-encode-packet '(75 
		      ("/s") 
		      ("/s" 5 6.7)))
 (current-output-port))			; => DISPLAY
